10 POKE788,52:PRINTCHR$(8):POKE53281,7:A=0:GOTO140
15 OPEN10,4,10:PRINT#10:CLOSE10:RETURN
20 OPEN15,C,15:INPUT#15,AA,BB$,CC,DD
30 IFAA<>0THENPRINT"              F E H L E R  !           ":GOTO50
40 RETURN
50 PRINT,AA;BB$;CC;DD:IFLEFT$(BB$,4)="READ"THENPRINT"             [196][201][211][203] [197][201][206][204][197][199][197][206] !"
60 GOSUB70:CLOSE3:CLOSE15:GOTO390
70 POKE198,0:WAIT198,1:POKE198,0:RETURN
80 W=PEEK(768):OPEN1,B:POKE768,185:PRINT#1:CLOSE1:POKE768,W:IFST<>-128THENY=0:RETURN
90 IFY=2THENY=0:GOTO280
100 PRINT"  [194][201][212][212][197] [218][213][197][210][211][212] [196][210][213][195][203][197][210] [197][201][206][211][195][200][193][204][212][197][206] !":GOSUB70:Y=Y+1:GOTO80
110 W=PEEK(768):POKE768,185:OPEN1,C,15,"I":CLOSE1:POKE768,W:IFST<>-128THENY=0:RETURN
120 IFY=2THENY=0:GOTO340
130 PRINT"  [194][201][212][212][197] [204][193][213][198][215][197][210][203] ";C;" [197][201][206][211][195][200][193][204][212][197][206] !":GOSUB70:Y=Y+1:GOTO110
140 PRINT"[144][147]            DIRECTORY-DRUCK"
150 PRINT"        FUER CBM-DRUCKER MPS 801"
160 PRINT"        BZW. SEIKOSHA    SL-80VC
170 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
180 [153]" PEEK BY     T I G E R - C R E W         PEEK"
190 [153]" MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
195 [153]" IMPROVED  NACH EINER IDEE VON  LUKIAN ":[141]70
200 [151]53272,23:[153] "LOAD    STR$RUCKER EINGESCHALTET ?? "
210 [153]"CLR  (VALS EMPFIEHLT SICH, DEN STR$RUCKER AUF     LEN(null)(null)STR$VAL(null)(null)VALSTR$ EINZUSTELLEN !)"
220 [141]70
230 [134]M$(150),L$(150),H$(150):[153]"LOADSTOP PEEKITTE WAEHLEN: "
240 [153]" STR$RUCK   IN CHR$ROSSBUCHSTABEN >CHR$<"
250 [153]" ODER    IN (null)LEINBUCHSTABEN >(null)<"
260 [161]I$:[139]I$[179][177]"K"[175]I$[179][177]"(null)"[175]I$[179][177]"G"[175]I$[179][177]"CHR$"[167]260
270 [139]I$[178]"K"[176]I$[178]"(null)"[167]A[178]7
280 [153]" STR$RUCKERADRESSE (4/5/6)";
290 [161]C$:[139]C$[179][177]"4"[175]C$[179][177]"5"[175]C$[179][177]"6"[167]290
300 B[178][197](C$):[153]B:[141]80
310 [153]" LEN(null)(null)STR$VAL(null)VALSTR$    (1)":[153]" ODER NORMAL (2)"
320 [161]W$:[139]W$[179][177]"1"[175]W$[179][177]"2"[167]320
330 [139]W$[178]"1"[167][159]13,4,13:[152]13
340 [153]" ASCLOPPY-ATNDRESSE (8/9)";
350 [161]C$:[139]C$[179][177]"8"[175]C$[179][177]"9"[167]350
360 C[178][197](C$):[153]C
370 [153]" PEEKITTE STR$ISK IN (null)AUFWERK";C;"EINLEGEN":[153]" UND <(null)VAL(null)(null)(null)(null)> DRUECKEN !"
380 [161]C$:[139]C$[179][177][199](13)[167]380
390 [141]110:[153]"LOADSTOP      PEEKITTE WARTEN !                    "
400 [153] " STR$IRECTORY WIRD GELESEN UND GEDRUCKT!":[159]4,B,A
410 [159]3,C,0,"$":[161]#3,X$,X$:E$[178][199](0):K[178]1:[141]20
420 [161]#3,X$,X$,L$(K),H$(K):[139]X$[178]""[167]450
430 [161]#3,A$:[139]A$[179][177]""[167]M$(K)[178]M$(K)[170]A$:[137]430
440 K[178]K[170]1:[137]420
450 [160]3:[157]4:MU[178]0:SP[178]6:[139]W$[178]"1"[167]SP[178]2
451 [129]J[178]1[164]K[171]1
452 [153][166]SP);256[172][198](H$(J)[170]E$)[170][198](L$(J)[170]E$);M$(J);:MU[178]MU[170]1
453 [139]W$[178]"1"[167]SP[178]2
454 [139]W$[178]"2"[167]SP[178]6
455 [139][201](M$(J),3)[178]"<  "[176][201](M$(J),2)[178]"< "[167]SP[178]SP[171]1
456 [139]W$[178]"1"[167][139]MU[177]3[167]MU[178]0:SP[178]2:[153]:[137]460
457 [139]W$[178]"2"[167][139]MU[177]1[167]MU[178]0:SP[178]6:[153]
460 [130]:[129]J[178]1[164]5:[153]" ":[130]:[152]4:[160]4:[139]W$[178]"1"[167][160]13:[141]15
470 [151]53281,5:[153]"LOAD STOP(null)OCH EIN STR$IR. DRUCKEN ? (J/N)? "
480 [161]D$:[139]D$[179][177]"J"[175]D$[179][177]"N"[167]480
490 [139]D$[178]"J"[167]540
500 [151]53281,2:[153]"LOADSYS    VAL (null)CLOSESTR$CLOSEVALCLOSEWAIT - PEEKIST STR$U SICHER ?"
510 [161]D$:[139]D$[179][177]"J"[175]D$[179][177]"N"[167]510
520 [139]D$[178]"N"[167]540
530 [153]"LOAD   PEEKIS DEMNAECHST !!!":[129]T[178]1[164]1000:[130]:[158]64738
540 [151]53281,7:[151]646,0:[156]:[153]"LOAD":[137]230